home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 23.zip / BS1 part 23 / Macro Paint v1.10.adf / Rexx / triangle.rexx < prev   
OS/2 REXX Batch file  |  1991-02-21  |  177b  |  11 lines
  1. /* Draw a right triangle with LINE arguments */
  2. ARG lost
  3.  
  4. ADDRESS 'mp_port'
  5.  
  6. PARSE VAR lost x1 ' ' y1 ' ' x2 ' ' y2
  7.  
  8. mp_line x1 y1 x2 y2
  9. mp_line x1 y1 x2 y1
  10. mp_line x2 y1 x2 y2
  11.